home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / yam_i_dodatki / pgpwithyam / readmail.rexx < prev    next >
OS/2 REXX Batch file  |  1997-06-18  |  506b  |  30 lines

  1. /* Encrypt a mail with Phil's PGP for YAM */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. pgppath = 'Work:pgp/pgp'
  6. pgpcommand = '-m'
  7.  
  8. CALL CLOSE 'STDOUT'
  9. CALL CLOSE 'STDIN'
  10. CALL OPEN 'STDIN','CON:0/14/1000/200/YAM-REXX/CLOSE'
  11. CALL PRAGMA '*','STDIN'
  12. CALL OPEN 'STDOUT','*'
  13.  
  14. IF ~SHOW('Ports','YAM') THEN DO
  15.   ADDRESS 'COMMAND'
  16.   'Run YAM:YAM NOCHECK HIDE'
  17.   'SYS:RexxC/WaitForPort YAM'
  18. END
  19. IF SHOW('Ports','YAM') THEN DO
  20.   ADDRESS 'YAM'
  21.   GETMAILINFO FILE
  22.   mailfile = RESULT
  23.  
  24.   ADDRESS 'COMMAND'
  25.  
  26.   pgppath pgpcommand mailfile
  27.  
  28. END
  29.  
  30.